home *** CD-ROM | disk | FTP | other *** search
/ Publication 6 / Publication_06_19xx_High-Tech_de_Side_B.d64 / d 2 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  131 lines
  1. 1000 poke56334,peek(56334)or1:rem(NULL)
  2. 1010 poke204,1:t=gt:m=gm:j=gj:gosub2110:at=x:rem(NULL)
  3. 1020 zu=int((40-len(n$))/2):ifhj/4<>int(hj/4)andhm=1thenl(2)=28:rem
  4. 1030 ifhm>3and(hj+1)/4<>int((hj+1)/4)thenl(2)=28:rem(NULL)
  5. 1040 open7,4,7:rem(NULL)
  6. 1050 print#7,chr$(14)"             [194]iorhythmus von":print#7:print#7:rem
  7. 1060 print#7,chr$(14)left$("                                           ",zu);:rem(NULL)
  8. 1070 print#7,chr$(18)n$
  9. 1080 print#7:print#7:rem(NULL)
  10. 1090 n$="geboren am "+t$+",d."+str$(gt)+". "+m$(gm)+str$(gj):rem(NULL)
  11. 1100 zu=int((80-len(n$))/2):rem(NULL)
  12. 1110 print#7,left$("                                             ",zu)n$:print#7
  13. 1120 print#7:n$="fuer die [218]eit vom 1. "+m$(hm)+str$(hj)
  14. 1130 zu=int((80-len(n$))/2)
  15. 1140 print#7,left$("                                         ",zu)n$:print#7
  16. 1150 n$="bis zum"
  17. 1160 ifhm=1thenn$=n$+" 31. [196]ezember"+str$(hj):goto1180
  18. 1170 n$=n$+str$(l(hm-1))+". "+m$(hm-1)+str$(hj+1)
  19. 1180 zu=int((80-len(n$))/2)
  20. 1190 print#7,left$("                                                  ",zu)n$
  21. 1200 print#7:print#7:print#7:print#7:print#7:ifhm=1then1250
  22. 1210 fora=1tohm-1:forb=1to11
  23. 1220 m$(0)=m$(b):m$(b)=m$(b+1):m$(b+1)=m$(0)
  24. 1230 l(0)=l(b):l(b)=l(b+1):l(b+1)=l(0):m(0)=m(b):m(b)=m(b+1):m(b+1)=m(0)
  25. 1240 nextb,a:m(0)=0
  26. 1250 c=0:fora=1to12:ifa>1andm$(a)="[202]anuar"thenhj=hj+1:c=1
  27. 1260 m$(a)=m$(a)+str$(hj):zu=int((21-len(m$(a)))/2)
  28. 1270 m$(a)=right$("                "+m$(a),len(m$(a))+zu)
  29. 1280 m$(a)=left$(m$(a)+"                ",21):next:ifc=1thenhj=hj-1
  30. 1290 fora=1to12step3
  31. 1300 t=1:m=m(a):j=hj:ifm(a-1)>m(a)thenhj=hj+1:j=hj
  32. 1310 gosub2110
  33. 1320 ta=x-at:g1=ta-33*int(ta/33):s1=ta-28*int(ta/28):k1=ta-23*int(ta/23)
  34. 1330 al(a)=ta:t=1:m=m(a+1):j=hj:ifm(a)>m(a+1)thenhj=hj+1:j=hj
  35. 1340 gosub2110
  36. 1350 ifl(a+1)=28thenx=x+3
  37. 1360 ifl(a+1)=29thenx=x+2
  38. 1370 ta=x-at:g2=ta-33*int(ta/33):s2=ta-28*int(ta/28):k2=ta-23*int(ta/23)
  39. 1380 al(a+1)=ta:t=1:m=m(a+2):j=hj:ifm(a+1)>m(a+2)thenhj=hj+1:j=hj
  40. 1390 gosub2110
  41. 1400 ta=x-at:g3=ta-33*int(ta/33):s3=ta-28*int(ta/28):k3=ta-23*int(ta/23)
  42. 1410 al(a+2)=ta:print#7,"   "m$(a)"     "m$(a+1)"     "m$(a+2):print#7
  43. 1420 s1$=chr$(45)+chr$(45)+chr$(45)+"[206][197][199]."+chr$(45)+chr$(45)+chr$(45)
  44. 1430 s1$=s1$+chr$(45)+chr$(45)+chr$(45)+chr$(45)+"[208][207][211]."
  45. 1440 s1$=s1$+chr$(45)+chr$(45)+chr$(45)
  46. 1450 print#7,"   "s1$"      "s1$"      "s1$
  47. 1460 forb=1to31:b$=right$(str$(b),2)
  48. 1470 s1$=".........."+chr$(125)+"..........":s2$=s1$:s3$=s1$
  49. 1480 ifb>l(a)then1530
  50. 1490 g1=g1+1:s1=s1+1:k1=k1+1
  51. 1500 ifg1>33theng1=1
  52. 1510 ifs1>28thens1=1
  53. 1520 ifk1>23thenk1=1
  54. 1530 ifb>l(a+1)then1580
  55. 1540 g2=g2+1:s2=s2+1:k2=k2+1
  56. 1550 ifg2>33theng2=1
  57. 1560 ifs2>28thens2=1
  58. 1570 ifk2>23thenk2=1
  59. 1580 ifb>l(a+2)then1630
  60. 1590 g3=g3+1:s3=s3+1:k3=k3+1
  61. 1600 ifg3>33theng3=1
  62. 1610 ifs3>28thens3=1
  63. 1620 ifk3>23thenk3=1
  64. 1630 :
  65. 1640 ifb>l(a)thenprint#7,"                        ";:goto1690
  66. 1650 s1$=left$(s1$,g(g1)-1)+"[199]"+mid$(s1$,g(g1)+1)
  67. 1660 s1$=left$(s1$,s(s1)-1)+"[211]"+mid$(s1$,s(s1)+1)
  68. 1670 s1$=left$(s1$,k(k1)-1)+"[203]"+mid$(s1$,k(k1)+1)
  69. 1680 print#7,b$" "s1$;
  70. 1690 ifb>l(a+1)thenprint#7,"                           ";:goto1740
  71. 1700 s2$=left$(s2$,g(g2)-1)+"[199]"+mid$(s2$,g(g2)+1)
  72. 1710 s2$=left$(s2$,s(s2)-1)+"[211]"+mid$(s2$,s(s2)+1)
  73. 1720 s2$=left$(s2$,k(k2)-1)+"[203]"+mid$(s2$,k(k2)+1)
  74. 1730 print#7,"   "b$" "s2$;
  75. 1740 ifb>l(a+2)thenprint#7,"                           ";:goto1790
  76. 1750 s3$=left$(s3$,g(g3)-1)+"[199]"+mid$(s3$,g(g3)+1)
  77. 1760 s3$=left$(s3$,s(s3)-1)+"[211]"+mid$(s3$,s(s3)+1)
  78. 1770 s3$=left$(s3$,k(k3)-1)+"[203]"+mid$(s3$,k(k3)+1)
  79. 1780 print#7,"   "b$" "s3$
  80. 1790 nextb:print#7:print#7
  81. 1800 nexta:print#7:print#7:print#7:print#7
  82. 1810 print#7,"[206]ach der [212]heorie des [194]iorhythmus gibt es 3 [218]yklen in [201]hrem [204]eben";
  83. 1820 print#7,", die mit":print#7,"dem [212]ag der [199]eburt beginnen:":print#7
  84. 1830 print#7,"                     [199] = geistiger [218]ustand,    [218]yklusdauer 33 [212]age"
  85. 1840 print#7,"                     [211] = seelischer [218]ustand,   [218]yklusdauer 28 [212]age"
  86. 1850 print#7,"                     [203] = koerperlicher [218]ustand,[218]yklusdauer 23 [212]age"
  87. 1860 print#7:print#7,"[201]hr  allgemeines  [215]ohlbefinden wird  allerdings nicht nur";
  88. 1870 print#7," vom [194]iorhythmus":print#7,"beeinflusst, sondern ";
  89. 1880 print#7," auch von [203]rankheiten, [211]tress und [213]mwelteinfluessen.":print#7
  90. 1890 print#7,"[196]a  sich  die [215]issenschaft  bis heute noch nicht darueber ";
  91. 1900 print#7," einig  ist, ob":print#7,"und in wie weit der [194]iorhythmus unser ";
  92. 1910 print#7,"[204]eben beeinflusst, sollten [211]ie nicht":print#7,"unbedingt nach den";
  93. 1920 print#7," [203]urven leben.":print#7
  94. 1930 print#7,"[211]ollten [211]ie also mal einen  schlechten [212]ag  erwischen und die ";
  95. 1940 print#7,"[203]urven  des":print#7,"[194]iorhythmus im  negativen [194]ereich sein,";
  96. 1950 print#7," dann  wissen  [211]ie  jedenfalls wer":print#7,"[211]chuld  an  [201]hrer";
  97. 1960 print#7," [214]erfassung ist."
  98. 1970 fora=1to16:readav:ifav=>al(1)andav<=al(12)+l(12)thena=16:goto1990
  99. 1980 nexta:goto2090
  100. 1990 fora=1to12:ifav=>al(a)andav<=al(a)+l(a)thenb=a:a=12:goto2010
  101. 2000 nexta:
  102. 2010 fora=2tob:ifm(a-1)>m(a)thenj1=j1+1
  103. 2020 nexta:t=av-al(b):m=m(b):j=j1:gosub2110
  104. 2030 print#7,"----------------------------------------";
  105. 2040 print#7,"----------------------------------------"
  106. 2050 print#7:print#7:print#7,"[201]ch habe noch einen [199]rund zum [198]eiern fuer [211]ie :"
  107. 2060 print#7
  108. 2070 print#7,"[193]m "t$", dem "right$(str$(t),2)"."right$(str$(m(b)),2)".";j1;
  109. 2080 print#7,"werden [211]ie"av"[212]age alt"
  110. 2090 close7
  111. 2100 print"      noch einmal ? (j/n)"
  112. 2102 geta$:ifa$<>"n"anda$<>"j"then2102
  113. 2104 ifa$="n"thenforx=2150to2250:pokex,0:next:sys64738
  114. 2106 run
  115. 2110 rem     alter und wochentag
  116. 2120 z=0:ifm<2theny=(m-1)*31:goto2160
  117. 2130 ifj/4<>int(j/4)then2150
  118. 2140 ifj/100<>int(j/100)thenz=1
  119. 2150 y=int((306*m-324)/10)
  120. 2160 z=z+int(j-1)*365+int((j-1)/4)
  121. 2170 z=z-int((j-1)/100)+int((j-1)/400)
  122. 2180 x=z+y+t:w=(x-int(x/7)*7)+1
  123. 2190 onwgoto2200,2210,2220,2230,2240,2250,2260
  124. 2200 t$="[211]onntag":return
  125. 2210 t$="[205]ontag":return
  126. 2220 t$="[196]ienstag":return
  127. 2230 t$="[205]ittwoch":return
  128. 2240 t$="[196]onnerstag":return
  129. 2250 t$="[198]reitag":return
  130. 2260 t$="[211]amstag":return
  131.